Aminet 31/Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso/Aminet/comm/www/metalweb.lha/MetalWEB 3.0/MetalWEB_Install

Text File | 1999-04-13 | 4KB | 242 lines

; MetalWEB install-script
;
; $VER: MetalWEB Install 3.0 (13.04.99)
; by Pedro Luis Mieza (MultitasK)
;

(set #MetalWEB-Version "3.0")

(if (< (/ (getversion) 65536) 37)
  (abort "Sorry, MetalWEB needs OS v37 (2.04) or higher.")
)

(complete 0)

(welcome
  "MetalWEB v" #MetalWEB-Version "© by Multitaskers\n"
  "WYSIWYG html Editor"
)

(set #Prg-Dir "")

(while
  (or (= #Prg-Dir "") (not (exists #Prg-Dir (noreq))))
  (set #Prg-Dir
    (askdir
      (prompt "Choose destination for MetalWEB\nA directory called MetalWEB will be created.")
      (help @askdir-help)
      (default @default-dest)
    )
  )
)

(set #Prg-Dir (tackon  #Prg-Dir "MetalWEB"))

(makedir #Prg-Dir
)

(complete 30)

(copyfiles
  (prompt "Copying MetalWEB executable...\n")
  (help @copyfiles-help)
  (source ("MetalWEB 3.0"))
  (dest #Prg-Dir)
  (infos)
  (confirm)
)

(complete 50)

(set #images
  (askoptions
    (prompt "What image-buttons do you want to install?\n(You could see it, on \"docs/image_8colorsNew.ilbm\"\nor \"docs/image_8nolorsOld.ilbm\")")
    (help @askchoices-help)
    (choices "New images (NewIcon Style)" "Old images (MagicWb Style)")
    (default 1)
  )
)

(if
  (in #images 0)
  (copyfiles
  (prompt "Copying MetalWEB images...\n")
  (help @copyfiles-help)
  (source ("images"))
  (dest (tackon #Prg-Dir "images"))
  (all)
  (confirm)
  )
)

(if
  (in #images 1)
(copyfiles
  (prompt "Copying MetalWEB old images...\n")
  (help @copyfiles-help)
  (source ("old_images"))
  (dest (tackon #Prg-Dir "images"))
  (all)
  (confirm)
  )
)

(copyfiles
  (prompt "Copying MetalWEB rexx...\n")
  (help @copyfiles-help)
  (source ("rexx"))
  (dest (tackon #Prg-Dir "rexx"))
  (all)
  (confirm)
)

(complete 60)

(set #catalog
  (askoptions
    (prompt "Choose language to install")
    (help @askchoices-help)
    (choices "English (built in)" "Català" "Español" "Français" "Deutsch" "Italiano")
    (default 1)
  )
)

(if (= @user-level 2)
   (set #catalogdest
     (askdir
        (prompt "Choose directory for catalogfiles")
        (help @askdir-help)
        (default "Locale:Catalogs")
     )
   )
   (set #catalogdest "Locale:Catalogs")
)

(if
  (in #catalog 1)
  (copyfiles
    (source "catalogs/català")
    (dest (tackon #catalogdest "català"))
    (all)
  )
)

(if
  (in #catalog 2)
  (copyfiles
    (source "catalogs/español")
    (dest (tackon #catalogdest "español"))
    (all)
  )
)

(if
  (in #catalog 3)
  (copyfiles
    (source "catalogs/français")
    (dest (tackon #catalogdest "français"))
    (all)
  )
)


(if
  (in #catalog 4)
  (copyfiles
    (source "catalogs/deutsch")
    (dest (tackon #catalogdest "deutsch"))
    (all)
  )
)

(if
  (in #catalog 5)
  (copyfiles
    (source "catalogs/italiano")
    (dest (tackon #catalogdest "italiano"))
    (all)
  )
)

(complete 70)

(copyfiles
  (prompt "Copying TextField gadgets...\n")
  (help @copyfiles-help)
  (source ("gadgets"))
  (dest "sys:classes/gadgets")
  (all)
  (confirm)
)

(copyfiles
  (prompt "Copying InfoText.mcc...\n")
  (help @copyfiles-help)
  (source ("mui"))
  (dest "mui:libs/mui")
  (all)
  (confirm)
)

(complete 80)

(set #name
        (askbool
        (prompt "Do you want to install MetalWEB demo Pages")
        (help @copyfiles-help)
        (default 0)
        )
)

(if
  (in #name 0)
    (copyfiles
    (prompt "Copying MetalWEB Demo Pages...\n")
    (help @copyfiles-help)
    (source ("Demo_pages"))
    (dest (tackon #Prg-Dir "Demo_pages"))
    (infos)
    (all)
    (confirm)
  )
)

(complete 90)

(set #name
    (askbool
        (prompt "Do you want to install MetalWEB HTML Documentation")
        (help @copyfiles-help)
        (default 0)
    )
)

(if
  (in #name 0)
    (copyfiles
    (prompt "Copying MetalWEB html docs...\n")
    (help @copyfiles-help)
    (source ("docs"))
    (dest (tackon #Prg-Dir "docs"))
    (infos)
    (all)
    (confirm)
  )
)

(complete 100)

(exit  "MetalWEB " #MetalWEB-Version " is now installed correctly. \n"
 "This is a ShareWare!.\n"
 "\n"
 "To have a registered version please\n"
 "send 3000 pts, 25 $, 40 DM or 20 Euros to:\n"
 "\n"
 "Pedro Luis Mieza Suarez \n"
 "Paseo Pedro III 45, 8, 3 \n"
 "08240 MANRESA (Barcelona) \n"
 "SPAIN \n"
 "\n"
 "Email: [e-mail] \n"
 "HTTP://www.earthcorp.com/multitask \n" (quiet))